home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / EasyPLUGINs / examples / location_demo.e < prev    next >
Encoding:
Text File  |  1998-02-13  |  816 b   |  38 lines
  1.  
  2. /*
  3.  
  4. */
  5.  
  6. OPT PREPROCESS, OSVERSION=37
  7.  
  8. MODULE 'tools/easygui', 'easyplugins/location'
  9.  
  10. DEF location:PTR TO location_plugin
  11.  
  12. PROC main() HANDLE
  13.  
  14.     NEW location
  15.  
  16.     easyguiA('location_plugin example', [COLS,
  17.                                             [TEXT, 'Move me then close me!', NIL, FALSE, 1],
  18.                                             [PLUGIN, {location_action}, location]
  19.                                         ])
  20.  
  21.     WriteF('Window ended at x: \d / y: \d / w: \d / h: \d\n',
  22.            location.lx, location.ly, location.lw, location.lh)
  23.  
  24. EXCEPT DO
  25.  
  26.     END location
  27.  
  28. ENDPROC
  29.  
  30. PROC location_action(gh:PTR TO guihandle, location:PTR TO location_plugin)
  31.  
  32.     WriteF('location_plugin action - at x: \d / y: \d / w: \d / h: \d\n',
  33.            location.lx, location.ly, location.lw, location.lh)
  34.  
  35. ENDPROC
  36.  
  37.  
  38.